home *** CD-ROM | disk | FTP | other *** search
/ Shareware Grab Bag / Shareware Grab Bag.iso / 007 / aakint14.arc / SETSERXH.PAS < prev    next >
Pascal/Delphi Source File  |  1986-08-24  |  1KB  |  26 lines
  1. (********************************************************************)
  2. (* THIS PROCEDURE WILL SET THE INPUT DTE HANDS ON THE SERIAL PORT   *)
  3. (* INPUT        : SERIAL CHANNEL , DTE HANDS                        *)
  4. (* INPUT/OUTPUT : NONE                                              *)
  5. (* OUTPUT       : NONE                                              *)
  6. (* USES         : NO SIDE EFFECTS                                   *)
  7. (* CALLS        : INTR                                              *)
  8. (* ERRORS       : NONE                                              *)
  9. (* GLOBAL VARS  : NONE                                              *)
  10. (* SUBJECT      : SERIAL COMM, SET DTE HANDS                        *)
  11. (* DOMAIN       : ARNO A. KARNER                      LEVEL : 001   *)
  12. (********************************************************************)
  13.  
  14. PROCEDURE Set_Xmit_Hands                      ( Ser_Chan : INTEGER ;
  15.                                                 Hands    : INTEGER ) ;
  16.  
  17. VAR
  18.    Regs  : Reg ;
  19.  
  20. BEGIN (* PROC *)
  21.    Regs.AH := 6 ;
  22.    Regs.AL := LO ( Hands ) ;
  23.    Regs.DX := Ser_Chan ;
  24.    INTR ( $14 , Regs ) ;
  25. END ; (* PROC *)
  26.